home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / mystring.e < prev    next >
Text File  |  1999-11-29  |  837b  |  34 lines
  1. OPT MODULE
  2.  
  3. EXPORT PROC findChar(str:PTR TO CHAR, char)
  4.    WHILE str[] <> char DO str++
  5. ENDPROC str
  6.  
  7.  
  8. /* special! :) letar reda på nästa rad med nåt */
  9. /* intressant på :) */
  10. /* skippar rader som _börjar_ med ; */
  11. EXPORT PROC newLineS(ptr:PTR TO CHAR)
  12.    WHILE (ptr[] <> 10) DO ptr++
  13.    ptr++
  14.    IF (ptr[] = 10) THEN ptr:=newLineS(ptr)
  15.    IF (ptr[] = ";") THEN ptr:=newLineS(ptr)
  16. ENDPROC ptr
  17.  
  18. /* kopierar fstr till buf, slutar när den hittar char */
  19. /* avslutar med nollbyte i buf */
  20. EXPORT PROC strCopy2Char(fstr:PTR TO CHAR, buf:PTR TO CHAR, char)
  21.    WHILE (fstr[] <> char) AND (fstr[] <> NIL) DO buf[]++ := fstr[]++
  22.    buf[] := 0
  23. ENDPROC buf
  24.  
  25. /* Byter ut ochar mot nchar i str */
  26. EXPORT PROC strRepChar(str:PTR TO CHAR, ochar, nchar)
  27.    WHILE str[] <> NIL
  28.       IF str[] = ochar THEN str[] := nchar
  29.       str ++
  30.    ENDWHILE
  31. ENDPROC
  32.  
  33.  
  34.